home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / lang.spr < prev    next >
Encoding:
Text File  |  1994-07-09  |  5.9 KB  |  180 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/20/94              LANG.SPR                 15:08:44 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *       LANG/Windows Databases, Indexes, Relations        
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("index")
  45.     SELECT index
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("index.dbf","DBF","Where is index?"));
  50.         AGAIN ALIAS index ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("lang") ;
  63.     OR UPPER(WTITLE("LANG")) == "LANG.PJX" ;
  64.     OR UPPER(WTITLE("LANG")) == "LANG.SCX" ;
  65.     OR UPPER(WTITLE("LANG")) == "LANG.MNX" ;
  66.     OR UPPER(WTITLE("LANG")) == "LANG.PRG" ;
  67.     OR UPPER(WTITLE("LANG")) == "LANG.FRX" ;
  68.     OR UPPER(WTITLE("LANG")) == "LANG.QPR"
  69.     DEFINE WINDOW lang ;
  70.         AT 5.583, 41.250 ;
  71.         SIZE 18.769,29.400 ;
  72.         TITLE "Languages" ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         FLOAT ;
  75.         CLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM
  78. ENDIF
  79.  
  80.  
  81. *       *********************************************************
  82. *       *                                                         
  83. *       *               LANG/Windows Screen Layout                
  84. *       *                                                         
  85. *       *********************************************************
  86. *
  87.  
  88. #REGION 1
  89. IF WVISIBLE("lang")
  90.     ACTIVATE WINDOW lang SAME
  91. ELSE
  92.     ACTIVATE WINDOW lang NOSHOW
  93. ENDIF
  94. @ 0.077,0.200 GET M.LangSlct ;
  95.      PICTURE "@&N" ;
  96.     FROM ALANG ;
  97.     SIZE 18.462,28.600 ;
  98.     DEFAULT 1 ;
  99.     FONT "MS Sans Serif", 8 ;
  100.     VALID _qr10wgoh8()
  101.  
  102. IF NOT WVISIBLE("lang")
  103.     ACTIVATE WINDOW lang
  104. ENDIF
  105.  
  106. READ CYCLE ;
  107.     ACTIVATE _qr10wgolk() ;
  108.     DEACTIVATE .T.
  109.  
  110. RELEASE WINDOW lang
  111.  
  112. *       *********************************************************
  113. *       *                                                         
  114. *       *                Windows Closing Databases                
  115. *       *                                                         
  116. *       *********************************************************
  117. *
  118.  
  119. IF USED("index")
  120.     SELECT index
  121.     USE
  122. ENDIF
  123.  
  124. SELECT (m.currarea)
  125.  
  126.  
  127. #REGION 0
  128.  
  129. SET READBORDER &rborder
  130.  
  131. IF m.talkstat = "ON"
  132.     SET TALK ON
  133. ENDIF
  134. IF m.compstat = "ON"
  135.     SET COMPATIBLE ON
  136. ENDIF
  137.  
  138.  
  139. *       *********************************************************
  140. *       *                                                         
  141. *       * _QR10WGOH8           M.LangSlct VALID                   
  142. *       *                                                         
  143. *       * Function Origin:                                        
  144. *       *                                                         
  145. *       * From Platform:       Windows                            
  146. *       * From Screen:         LANG,     Record Number:    3      
  147. *       * Variable:            M.LangSlct                         
  148. *       * Called By:           VALID Clause                       
  149. *       * Object Type:         List                               
  150. *       * Snippet Number:      1                                  
  151. *       *                                                         
  152. *       *********************************************************
  153. *
  154. FUNCTION _qr10wgoh8     &&  M.LangSlct VALID
  155. #REGION 1
  156. SLANG1 = LangSlct
  157. CLEAR READ
  158.  
  159.  
  160. *       *********************************************************
  161. *       *                                                         
  162. *       * _QR10WGOLK           Read Level Activate                
  163. *       *                                                         
  164. *       * Function Origin:                                        
  165. *       *                                                         
  166. *       *                                                         
  167. *       * From Platform:       Windows                            
  168. *       * From Screen:         LANG                               
  169. *       * Called By:           READ Statement                     
  170. *       * Snippet Number:      2                                  
  171. *       *                                                         
  172. *       *********************************************************
  173. *
  174. FUNCTION _qr10wgolk     && Read Level Activate
  175. *
  176. * Activate Code from screen: LANG
  177. *
  178. #REGION 1
  179.  
  180.